home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / diskcat.arc / DC-INTRO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-11-10  |  3.0 KB  |  67 lines
  1. 1  ''DISKCAT.BAS 2.0  (C) COPYRIGHT  1983  NELSON FORD   ALL RIGHTS RESERVED       ''
  2. 2  '' A limited license is granted to copy and distribute ONLY THE COMPILED        '' VERSIONS of this set of programs, as long as no fee is charged for doing     '' so and the distribution is not related to any commercial endevour
  3. 3  '' and the copyright notices and program intro are left intact.                 '' Please report program enhancements back to:                                  ''            Nelson Ford   P.O. Box 61565   Houston, Tx. 77208                 ''
  4. 10  ENTR$=" "+CHR$(17)+CHR$(196)+CHR$(196)+CHR$(217)+" ": GOSUB 140
  5. 20  CLS:LOCATE 8,20,1: PRINT "Care to read the documentation? ";
  6. 30  GOSUB 120: PRINT N$: IF N$="n" OR N$="N" THEN END
  7. 35  D$="":  ON ERROR GOTO 111
  8. 36  OPEN D$+"diskcat.doc" FOR INPUT AS #1:  CLOSE:  ON ERROR GOTO 0
  9. 40  OPEN D$+"diskcat.doc" AS #1 LEN=1: FIELD 1, 1 AS X$
  10. 50  LOCATE 10,20:  PRINT "Want a hardcopy?  ";
  11. 60  GOSUB 120: PRINT N$;: IF N$="Y" OR N$="y" THEN PT=-1
  12. 70  LOCATE 12,20: PRINT "Pause for each line of display? ";
  13. 80  GOSUB 120: CLS: IF N$="Y" OR N$="y" THEN PS=-1
  14. 90  GET 1:  IF X$<>CHR$(13) THEN PRINT X$;  ELSE  IF PS AND Y$<>CHR$(10) THEN       GOSUB 120
  15. 95  IF PT AND X$<>CHR$(10) THEN LPRINT X$;
  16. 100  Y$=X$:  IF X$<>CHR$(26) THEN 90
  17. 110  CLOSE:  END
  18. 111  IF D$="" THEN D$="B:" ELSE  PRINT TAB(20) "What drive is DISKCAT.DOC on? ";:    GOSUB 120: PRINT N$: D$=N$+":"
  19. 112  CLOSE: RESUME 36
  20. 120  N$=INKEY$: IF N$="" THEN 120 ELSE RETURN
  21. 130  '''
  22. 140  FG=7:  BG=0:  WIDTH 40: TB=16
  23. 150  CLS:  LOCATE 10,TB,0
  24. 160  PRINT "DISKCAT";:  I$="CAT"
  25. 170  X=VAL(RIGHT$(TIME$,1)): WHILE ABS(VAL(RIGHT$(TIME$,1))-X)<2:WEND
  26. 180  LOCATE 10,TB+4: PRINT " ";: LOCATE 12,TB: PRINT "C";: SOUND 311,1
  27. 190  GOSUB 570
  28. 200  LOCATE 10,TB+5: PRINT " ";: LOCATE 12,TB+1: PRINT "A";: SOUND 392,1
  29. 210  GOSUB 570
  30. 220  LOCATE 10,TB+6: PRINT " ";: LOCATE 12,TB+2: PRINT "T";: SOUND 467,1
  31. 230  X=VAL(RIGHT$(TIME$,1)): WHILE ABS(VAL(RIGHT$(TIME$,1))-X)<2:WEND
  32. 240  PRINT "A";: SOUND 467,1: GOSUB 580
  33. 250  PRINT "L";: SOUND 424,1: GOSUB 580
  34. 260  PRINT "O";: SOUND 392,1: GOSUB 580
  35. 270  PRINT "G";: SOUND 349,1: GOSUB 580
  36. 280  LOCATE 14,TB:  PRINT "PROGRAM":  SOUND 311,2
  37. 290  LOCATE 16,TB-2: PRINT "version 2.0"
  38. 300  LOCATE 18,TB-11: PRINT "(C) Copyright  Nelson Ford  1983": PRINT
  39. 310  PRINT TAB(TB-4) "P.O. Box 61565"
  40. 320  PRINT TAB(TB-4) "Houston, Tx 77208"
  41. 330  PRINT TAB(TB-4) "Source:  ST3564"
  42. 340  FOR I=1 TO 1000: NEXT
  43. 350  LOCATE 10,TB+4:PRINT " "CHR$(8)" ";:  SOUND 37,20
  44. 360  LOCATE 24,TB-7
  45. 370  PRINT"press"ENTR$"to continue";
  46. 380  GOSUB 120:  WIDTH 80:  CLS:  X=20
  47. 390  LOCATE 6,30: PRINT "Freebie-Ware"
  48. 400  LOCATE 8,X
  49. 410  PRINT"If you find this program useful";
  50. 420  T=VAL(RIGHT$(TIME$,1)): WHILE ABS(VAL(RIGHT$(TIME$,1))-T)<3:WEND
  51. 430  LOCATE,,0
  52. 440  PRINT TAB(X)"  bring money."
  53. 450  PRINT TAB(X)"Lots of it."
  54. 460  PRINT TAB(X)"In a brown paper bag."
  55. 470  PRINT TAB(X)"No bills larger than a $20."
  56. 480  PRINT TAB(X)"No consecutive serial numbers."
  57. 490  PRINT TAB(X)"Drive to the park and leave the money on"
  58. 500  PRINT TAB(X)"  the third park bench by the yellow can."
  59. 510  PRINT TAB(X)"This is not a joke.  Someone will be watching"
  60. 520  PRINT TAB(X)"  your house to see if you use this program."
  61. 530  LOCATE 24,X
  62. 540  PRINT"Press"ENTR$"when you've got the money ready.";
  63. 550  LOCATE,,1: GOSUB 120
  64. 560  RETURN
  65. 570  FOR I!=1 TO 600: NEXT:  RETURN
  66. 580  FOR I!=1 TO 300: NEXT:  RETURN
  67.